driver4 Subroutine

public subroutine driver4(ystart, x1, x2, rexi, hmin, derivs)

var if(dabs(dydx(3)).ne.zero) h=dabs(hmin1/dydx(3))/hdrob1 if(dabs(y(3)-rexi).gt.rrange.or.nstp.eq.maxstep4) then ! exit !sav2008

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(inout)			::	ystart(:)
real(kind=wp),	intent(inout)			::	x1
real(kind=wp),	intent(inout)			::	x2
real(kind=wp),	intent(in)			::	rexi
real(kind=wp),	intent(in)			::	hmin
procedure(Iderivs_func)				::	derivs